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Our theme for this 
business and home -finance, 
you enjoy it as much as we' 
bringing it to you- 



month is 
We hope 
enjoyed 



This month has been a month with 
a 1 ot of news to cover - We are 
keeping an eye on several stories 
■for which inadequate details were 
available -for this issue. We will 
keep you posted on what we know - but 
not the rumors that we hear! We've 
heard some really incredible rumors 
and such di si nf ormat i on i s not 
bene-ficial to you or the producers o-f 
products! 



pleased to have included 

articles on Mini Memory. 

number of requests for 

lating to this useful TI 



We 

in this issu* 
We've had a 
information r< 
Module. 



If you own a disk system and the 
Edi tor /Assembl er , we hope you have 
tried FORTH. It is fun to work with 
and packs a lot of power! Beginner 
projects Are easy in FORTH - even with 
no prior programming knowledge! 



Days Away : The Backbone 
of an Aoing Program 

STANDARD: lA 2A 9A 

Keeping a close watch on amounts 
owed to vendors and amounts due from 
customers i s one of the pr i mary 
controls to be monitored by successful 
businesses. The age of the payable or 
receivable is of great importance. 
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Computers should be used for agings if 

more than a few invoices are to be 
evaluated. 

At the end of this article is an 
example program for determining the 
number of days since a date (one of 
the more difficult to develop sections 
of an aging program). The program is 
valid for any dates in the 20th 
Century and takes into account leap 
dates. 

The program includes our first 
example of subprograms - an important 
tool for the TI-99/4A programmer. the 
subprogram passes values of variables 
through a parameter list. Other 
variables do not affect the program or 
other subprograms . Thi s is an 
i mportant concept that i s bei ng 
increasingly accepted as the proper 
approach to structuring 
Next month we'll look at 
of microcomputer BASIC as 
to TI Extended BASIC and 
together the various concepts we have 
covered into a format that conforms to 
modern practices to the degree that is 
allowed by TI Extended BASIC. We will 
show that TI Extended BASIC is a much 
better form of BASIC than is currently 
available for most microcomputers! 



a program, 
the future 
it relates 
will bring 



There are many uses for the days 
away routine. It can be used for 
calculating the average age of a group 
of employees <for insurance purposes, 
etc- ) . Or, you could determine 
whether equipment or equipment parts 
have exceeded their expected life, 
which could also be useful around the 
house for auto maintenance, etc. 
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Here is the days away routine: 

>100 DIM DAYS_AWAY(5) 

>110 DISPLAY AT(4,1)ERASE ALL 

: "TODAY'S DATE (MMDDYY) " 
>120 ACCEPT AT (4, 23) BEEP VALI 

DATE<DIGIT)SIZE<6) s DATE* 

>130 CALL CONVERT (DATE*, 2 > 

>140 DAYS_AWAY<0)=Z 

>150 FOR 1=1 TO 5 

>160 DISPLAY AT (1+4, 1) : "TEST 

DATE"; I; " (MMDDYY) " 
M70 ACCEPT AT (1+4, 23) BEEP VA 

LIDATE(DIGIT)SI2E(6) s DATE* 
>180 CALL CONVERT (DATE*, 2) 

>190 DAYS_AWAY(I)=DAYS_AWAY(0 

)-Z 
>200 NEXT I 
>210 FOR 1=1 TO 5 

>220 DISPLAY AT ( I+IO, 1 ) : "DAYS 
AWAY" ; I ; DAYS_AWAY ( I ) 

>230 NEXT I 

>999 END 

>1000 SUB CONVERT (DATE*, Z) 

MD=VAL CSEG* (DATE*, 1,2) ) 
DA=VAL ( SEG* < DATE* ,3,2)) 
YR=VAL(SEG*(DATE*,5,2) ) 
YR=YR+1900 

CE=(YR-l)-15a2 
K0=INT(CE/100) 
VR=INT(CE/4> 

2=( (CE+K0-VR)*365)+(<VR 

-K0X366) 
>1090 RESTORE 1120 :: FOR LOO 



>1010 

>1020 
>1030 
>1040 
>1050 
>1060 
>1070 
>1080 



READ ADD 



P-1 TO MO-1 : : 
>1100 Z=Z+ADD 
>1U0 NEXT LOOP 
>1120 DATA 31,28,31,30,31,30, 

31 ,31,30,31,30 
>1130 IF YR/4=INT(YR/4)AND YR 

/100<>INT(YR/100)AND M0>2 TH 

EN 2=2+1 
>1140- Z=Z+DA 
>il50 SUBEND 



Mini Memory Manual Correction 
STANDARD! lA 2B 9A 



Me -find the Line-by-Line Assembler to 
be tough enough to use with a correct 
listing (the Assembler included with 
the Editor /Assembler is much easier to 
use). However, Assembly Language is 
D-ften worth a lot o-f e-f -f ort I Here are 
the corrections we have noted: 



LOCATION 


TYPO 


COR 


>7E60 


MOVE 


MOV 


>7E90 


Al 


Al 


>7E94 


LI 


LI 


>7EC4 


Al 


Al 


>7EC8 


Al 


Al 



I-f you had di-f f iculty in keying the 
1 i sting, now you^ know that you were 
not the only one! 



The Real Power o-f Mini Memory 

STANDARD: lA 2B 9A <o: 4A 5A 6A 7A) 

Many times we have been asked to 
evaluate the use-fulness o-f Mini 
Memory- To be quite honest, Mini 
Memory does not have the obvi ous 
capabilities of XBASIC or the power-ful 
Assembler o-f the Editor/Assembler- 
Cl oser obser vat i on shows a myr i ad o-f 
capabi 1 ities. 

Consider the -f ol 1 owing program; 

MOO X*="DSK1, INFO" 
>nO REM 

>120 OPEN #1= X*, RELATIVE, INTE 

RNAL, UPDATE, FIXED 
>130 FOR A=l TD 100 
>140 PRINT #1:A 
>150 NEXT A 
>160 CLOSE #1 



Using a TI 
Controller, the 
approximately 34 
BASIC- 



Drive and 
program ex 
7 seconds in 



TI Disk 
utes in 
Extended 



'k 






The Mini Memory Manual includes 
an excellent assembly language program 
that has a -few misprints in the 
version we have. The program allows 
rapid displays o-f strings to any place 
on the screen - the equivalent of the 
Extended BASIC statement DISPLAY AT. 



Switching to the Mini Memory 

Module, the -f ol 1 owing changes can be 
made to the program: 



>100 X*="EXPMEM2" 

>110 CALL LOAD (-24574, 8) 
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Ei^ecution time is now 20- 4 seconds ! 
Si mi 1 ar time factors can be obtained 
using the MINIMEM space, but not 
many records can be stored- 



To gi ve some credi t 
disk drives J, much o-f the 
is for naming the file 
directory- Subsequent 
timed at approK i mate! y 
Df course. Mini Memory^ s 



back to the 
access time 
in the disk 
accesses were 
27„ 4 seconds. 
dara areas do 



not require a directory listing. 



Thi B amaz i ng power of rii ni 
IS what ' -^ ^- 

"RAM 
files 



1 s somet i mes 
disk" - ^^- -■" 



th 
RAM. 



._ Memory 
referred to as 

storage o-f disk-t 



ype 

a time 

ompl ished 



■files in RAM . As shown , 
savings of 257. to 417, was ace 
in the example program. 

Sorting i s one of Mini Memory' s 
strong points. Disk files created by 
any Module (or no Module) can be 
sorted, large files can be sorted in 
EXPMEM2 faster than using the TI Disk 
System, and the program that created 
the file does not have to be used to 
sort itn since the data can be chained 
from a previous Mini Memory program! 
With 32K memory, an Assembly sort 
would make the process even faster. 
Sorting in Mini Memory also reduces 
long-term wear on your disk drive(s). 



B files must be SEQUENTIAL 
files, but can be converted by a BASIC 
program to RELATIVE format for use in 
MINIMEM or EXPMEM2. This offers a 
relatively inexpensive alternative for 
obtaining disk file power. After the 
file has been manipulated, it qblh be 
saved to tape using the SEQUENTIAL 
format. 

TI did not provide a method of 
storing Assembly programs created by 
the Line~by-Line Assembler to disk. 
However, programs created for Mini 
Memory using the Editor/Assembler can 
be loaded from disk. Such programs 
can reside in Expansion Memory by 
using AORG. 

Mini Memory is especially useful 
for advanced users and persons 
operating on a limited budget. 



FORTH Phone List 
STANDARD: lA 2C 4B 5A 6B 7A 9A 

A good phone list is a must for 
active people and busy programmers 
and is very easy to create in FORTH. 



Start by finding an unu 
and define FORTH words that 
the initials of the persons 
list: 



d screen 
wi 1 1 be 
on your 



: JS ." John Smith 555-1843 " CR ; 

If you need to continue on the next 
screen, use the — > symbol to continue 
to the following screen. Next, define 
a word to initialize the screen: 

: PHONEINIT TEXT CLS O O GOTOXY 

23 7 VWTR : 



If you do not BLOAD your menu 
you'll need to have -SYNONYMS 
the beginning of the screen. 
23 7 VWTR sets the screen to 
CYAN and is not required. 



options, 
-TEXT at 
The code 
BLACK on 



The next step is to build as many 
different phone lists as you need. 
A single phone listing can be on more 
than one list. Here is an example: 

: PROGPHONE PHONEINIT RH RR ; 

: COMPUPHONE PHONEINIT RH JS SM RR ; 

The word PROGPHONE is for computer 
programmers and COMPUPHONE is for all 
computer users. Of course, you can 
create your own words that would 
correspond to your lists. FLUSH the 
screen and EDIT screen 3. Put in a 
definition for a new word "PHONE": 

: PHONE 6 LOAD : 

Our definition of PHONE assumes the 
phone list begins at screen 6, so 
changp 6 to the screen you used. 

To use the list, just key PHONE 
and the name of the list you want, 
such as PROGPHONE. Use FORGET or COLD 
after using the list to free up memory 
iknd reduce the vocabulary entri 
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Dual -column Rioht-ad justment 

Using T I -Writer 

STANDARD: lA 2E 3B 4B 5A 6B 7A 9A lOA 

Many o-f you have probably heard 
a lot o-f sad tales about what 
Tl-Wri ter wi 1 1 not do. Nearly al 1 of 
those rumors are -false! We are so 
comf ortabl e i n usi nq TI— Wri ter that we 
use it almost excl usi vely -for thi s 
publication (sort o-f a practice what 
we preach approach) . 

One claim has been that Tl-Writer 
cannot be used to create a page such 
as the one you are reading - what we 
cal 1 dual -column ri ght -ad justed in one 
pass o-f the page so that the left and 
right columns align with one another - 



One of the tri cks is that we u 
a paral lei printer set for PIQ, LF, but 
select PIO.CR for printing through 
TEXT FORMATTER- We recommend that you 
test only a few lines by the following 
QUI del ines to be sure the method works 
with your conf i gur at i on . 

Upon entering TEXT EDITOR, you 
must always turn WORD WRAP off by 
pressing <CTRL> <0>- Use a left 
margin of O and a right margin of 79. 
We have our page length set to 300. 
The FILL and ADJUST commands air& used- 



Essenti al ly 
done using the 
spaces. It tak 
accustomed to al 1 
of blanks. 



everythi ng 
caret for 
some time 
those caret 



Ise is 

forced 

to get 

instead 



Proceeding to th 
EDITOR line, the first 
right column is done i n r 
left column. We use a 
last character (see why b 



next TEXT 

line of the 

s& of the 

caret as the 
low) . 



We use the third 
transl iterated carri age 
prevents some odditip'-^ 
i n , such as occasional 
Keep in mind that any 
you dire not writing should be filled 
with carets- 



line for a 
return. This 
from creeping 
uneven 1 ines- 
direa in which 



If you want to underscore 
solid line, insert a line bel 
item to be underscored an 
transl iterated underscore p 
commands- Al though such transl i 
commands are not printed , they d 
up space on a TEXT EDITOR line 
the printout wi 1 1 not 1 i ne up 
on the right unl ess you al 1 ow at 
one caret at the end of each 1 in 
above) . 



with a 
ow the 
d use 
rinter 
ter ate 
o take 
that 
evenly 

1 east 
e (see 



The easi est way to set up the 
first page is to use LINES COPY from 
edit mode. Once you have one page 
built, use it as a master for future 
pages, changing your page numbers and 
writing over your previous words. Be 
sure to remember to save the new page 
with a new name. 

We warn you that this method uses 
a 1 ot of disk sectors ! We don' t mind 
as we use DS/DD diskettes, but on 
SS/BD it mi ght present probl ems. 



It is important that we point out 
now that we reduce our printout before 
it is publ ishedp so don't expect to 
be able to use as many characters as 
we do and sti 1 1 have margins without 
reduction ! 

Determine the size of your center 
margin (we use 3 spaces). For the 
first line of the left column, use 
forced spaces from the beginning of 
the center margin to the right. Only 
the last word needs to be set to the 
center margin - spaces wil 1 be 
properly inserted throughout the line, 
giving a look similar to typesetting- 
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You' 11 also find that using 
col umns is not very f orgi vi ng wh 
need to make massi ve changes. 



dual 
you 



Even if you don't intend to u 
thi s method of printi ng, we recommend 
that you advanced TI— Writer users try 
a few lines of this to see if you can 
pick up on any new tricks through 
modifying our system. 



One final note i s 
discover that a few trick 
here and there (nothing th 



that you^ll 
= needed 



IS really 
but Tl-Wri ter can handl e 
almost anything using this method I 



dif^f icult) 



> 
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Using the CorComp 9900 Disk 
Control lers Instant 



Ci'jaracter Sets 



lA 2A 4B 5A 6B (no) 7A 9A 



inate old 
alike as 
ays- The 
statements 
9900 Disk 
rogrammers 
to write 
is an avid 
1 take a 



STANDARD 



Nothinig seems to -f 
computer hands and novices 
much as -fancy screen displ 
new BASIC and XBASIC 
provided with the CorComp 
Control 1 er Card wi 11 al 1 ow p 
o-f an inter medi ate level 
so-f tware that a teen who 
video arcade enthusiast wil 
second and third look at! 



Let's see how to switch out all 
or a portion of a character set many 
times in less than 1 second! 



Page 81 o-f the CorComp 
covers a "CALL MOVEM" statement 
allows memory to be moved bet 
combination o-f CPU and VDP 
to ROM, O-F course) . Appendix 
a VDP Memory Map that includ 
location o-f the Pattern Des 
Table (character set in use) ., 
an XBASIC program that includ 
REM's necessary -for understandi 
is being accompl ished; 



Manual 
which 
any 
(except 
C shows 
es the 
cr iptor 
Here is 
es the 
ng what 



>100 CALL INIT 

CMOS" 
>110 ! 



ft M 



DELETE "LD- 



>120 



! X=FIRST CHARACTER TO 
MOVE TO CPU RAM 

! Y=LAST CHARACTER TO 
MOVE TO CPU RAM 
>130 ! 2=NUMBER OF BYTES TO 

MOVE 

X=12B 

Y=143 



>140 
>150 
>i60 



>170 



! A=VDP ADDRESS OF FIRST 
CHARACTER TO MOVE 

! B*=VDP ADDRESS OF END 
OF LAST CHARACTER TO 
MOVE 

A=76a+8*X 

B=76B+8«Y+7 

Z=B-A+1 

I C=ADDRESS OF 
FREE ADDRESS 
MEMORY AFTER 
ROUTINES LOADED 

CALL PEEK(8194, I, J) : : C= 
1*256+ J 

>230 ! 2 SIGNIFIES VDP TO CPU 



>1S0 
>190 
>200 
>210 



FIRST 
IN LOW 
ASSEMBLY 



>220 



>240 

Z) 
>250 

>260 

Z) 
>999 



CALL LINKCMOVEM") (2,A,C 

! 3 SIGNIFIES CPU TO VDP 
CALL LINKC'MOVEM") (3,C,A 

END 



But, you didn't see a thing when 
you ran that one I So, add the lines 
that f ol low to prove that it works: 

>105 GOSUB 2000 :: GOSUB 1000 

>245 GOSUB 3000 

>1000 ! SET CHARACTERS 128 TO 

143 TO SOLID SQUARE 
>1010 FOR 1=128 TO 143 
>1020 CALL CHARd, "FFFFFFFFFF 

FFFFFF") 
>1030 NEXT I 
RETURN 
! PRINT CHARACTERS 128 

TO 143 
FOR 1=128 TO 143 
PRINT CHR*(I) ; 
NEXT I 
RETURN 
! SET CHARACTERS 128 TO 

143 TO ONE PIXEL 
FOR 1=128 TO 143 
CALL CHARd, "1") 
NEXT I 
RETURN 



>1040 
>2000 

>2010 
>2020 
>2030 
>2040 
>3000 

>3010 
>3020 
>3030 
>3040 



O-f course, we r 
had a lot o-f lines that 
be calculated outside 
This was an example. 



lize that we 
woul d normal 1 y 
the program. 



We now know it takes 128 bytes to 
store characters 128 to 143. So, if 
we want another set o-f 128 to 143, we 
should begin at C+Z. I-f no Assembly 
routines have been LOAD'ed, the next 
CPU address to use would be 9568 plus 
128, or 9696. Be sure to not go too 
high in Low Memory, as the REF/DEF 
Table -for Assembly routines works its 
way down -from 16374- Usi ng 9568 to 
16000 gives room -for 804 characters or 
8 -full screens (Screen Image Table) to 
be stored in Low Memory alone ! 

We are working on an article for 
the real ly advanced CorComp user -for 
maki ng -full use o-f the CorComp 
statements (maybe next month) . 
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Household Consumer Price Index 

Using MultipXan 

STANDARD: lA 2D 4B 5A 6B 7A 9A 

Federal authorities periodically 
release -figures known as the Consumer 
Price Index- If investments are your 
interest, the index may help you. For 
household management, typical prices 
nationwide are rather meaningless. 



So, we decided to creat 
spreadsheet to relate prices to 
household's economic structure, 
intention is to avoid an excess 

scientific approach. 



e a 
your 

Our 
ively 



The idea is to consider 
variable costs as possible, 
considered will be expressed in 
of a typical quantity you 
consume i n one month . Then , 
month you enter the current c 
that quantity of consumable, 
total for the first month will b 
base amount. Totals for 
months will be compared to the 
period for an index. The in 
indicate the degree to which 
household budget is controllable 
instance, if there is a ten p 
increase in the index, your c 
be expected to be ten percent 
budget. Any other "Variance deals with 
your money management decisions. 

HOUSEHOLD CONSUMER 
PRICE INDEX 



many 

item 

terms 

would 

each 

of 

The 

the 

uent 

base 

will 

your 

. For 

ercent 

s can 



UTILITIES 

electr. (3000 u) 
natural gas (20 c) 
gasoline (150 gal) 
TOTAL UTILITIES 

FOOD 

eggs (4 doz) 
milk (4 gal) 
round steak (6 lb) 
ham (4 lb) 

potatoes (10 lb) 
TOTAL FOOD 



JAN 

200.00 

17.00 

150.00 

.00 



190 

19 

175 

384 



00 
00 
00 
00 



4. 
12. 
18. 
16. 

5. 



00 
00 
00 
00 
00 
00 



3. 
12. 
12. 
14. 

6. 
48. 



86 
40 
00 
00 
00 



TOTAL INDEXED ITEMS 422.00 432-26 



INDEX 



100.00 102.43 



to 



Of course, our model was dasigned 
conserve space and yours may 



include many more items, especially if 
you do a lot of entertaining, etc. 

The formulas should all be easy 
if you followed our September model or 
the examples in the Multiplan manual, 
except the one for the INDEX: 

(RC-23C/R19C2) «100 

Remember to use COPY RIGHT 11 to build 
February through December. 

Further work with the model could 
lead to an automatic multiplication of 
the unit cost times the units, one or 
more dependent sheets for summary 
information, automatic adjustment of 
your household budget, seasonal 
adjustments, etc. The model could 
also be modified for variable business 
expenses- 



Prooram Testing 



by Jim Peterson, Ti 
156 Collingwood Ave 
43213 

STANDARD: lA 9A 



gercub Software, 
. 5 Columbus, OH 



No programmer should test his own 
programs, for two very good reasons; 



1- 



By the time you have the program 

debugged , you are so sick of 

looking at it that you test it all 

too briefly, while your mind is on 

the next program you just thought 
of. 



2. 



You wrote the 
which keys 
subconsciously 
wrong ones. 



program, 

to hit, so 

avoid hitting 



you know 



you 
the 
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The best way to get a program 
tested is to go out and catchy a 6 year 
old, wipe the jam from his ' fingers, 
set him down at the keyboard and turn 
him loose. He will hit all the right 
keys in the wrong order, all the wrong 
keys in the wrong order, and all the 
keys at once- He will make your 
program do things you never dreamed 

-> 
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I 



I 



o-f , and produce error messages that 
you didn't know were in the computer's 
vocabulary! 

I have one program which wi 1 1 
begin to print the alphabet across the 
top of the screen a-fter you 
deliberately press the wrong key 28 
times. A 6 year old showed me that - 
and I still haven't +ound anything in 
the program logic to account for it! 

It is amaz i ng how easy it is to 
overlook basic -flaws in your own 
programs. I recently received the 
di sk o-f programs -from the Home 
Computer Magazine Vol. 4 No. 3, a-fter 
a long wait. One o-f the programs is 
Elementary Addition and Subtraction - 
quite good, although the response is 
slow. It generates random numbers 
between 1 and 5, -for addition and 
subtraction practice- 



The -first 
asked me -for 
When I answered 
another random 
This is known 
syndrome, and 



time I tried it, it 
the answer to 1 + 1 . 
correctly, it produced 
problem — 1 -^ 
the idiotic 
it helps us to 



1 agai n ! 

computer 

remember 

smarter 



that computers are still no 

than their programmers. However, this 

bit of idiocy is easy to cure. 

In line X170 you will -find LEFT= 
INT<5«RND)+1. Just add two lines: 

>1172 IF LEFT=LEFT2 THEN 1170 
>1174 LEFT2«LEFT 

You will have to make similar changes 
after lines 1780 and 1800. 



how it works? The 

a number, LEFT2 

i t has never been 

wi 1 1 have been 

r between 1 and 5 - 

2, which does not 

e program continues 

LEFT2 picks up the 

So, the next time 

1170 picks 2 again, 

h it with LEFT2 and 
number. 



Do you 

first time you 
will equal O becau 
given a value 
selected as a 
let's suppose 
equal LEFT2, 
to line 1174, 
same value as 
around, if 



numbe 
it's 
so th 
where 
LEFT. 
1 ine 



line 1172 will mate 
go back for another 



>1172 IF <LEFT=LEFT2)+<LEFT«L 
EFT3> THEN 1170 

>1173 LEFT3=LEFT2 



Make sure you 
sequence. For , 



that in the right 
, change toi 



>1170 LEFT=INT<3*RND)+1 
>1175 PRINT LEFT 
>1176 GOTO 1170 



Mith only 

the 

endlessly. 



3 numbers to choose -from, 
sequence is r 



Peeking and Pokeino Bits 

STANDARD! lA 2A 5A 7A 9 A 

Many of you have probably worked 
wi th PEEK and LOAD for accessing 
bytes . However , you may not have 
considered the possibilities available 
in accessing bits. While many 
possibilities may come to mind for 
you, we have an idea that may not come 
to mind so easily. 

Our project is to write a program 
to simulate 800 coin tosses, store the 
results of each toss, total the heads, 
tails, and total tosses, and display 
the totals. Here is a solution that 
mi ght immediately come to mind: 



MOO 
>110 
>120 
>130 
>140 
>150 
>160 
>170 
>180 
>190 
>200 



DIM A(800>t: RANDOMI 
FOR 1=1 TO 800 

A<I)=INT(RND»2) 

NEXT I 

FOR 1=1 TO 800 

IF A(I)=1 THEN H=H+1 

TL=TL+1 

NEXT I 

PRINT "TOTAL" sTL 
PRINT "HEADS" sH 
PRINT "TAILS" ;TL-H 



The program RUN's in 
seconds, requires 39 bytes 
space and a whopping 6610 
program space. 



about 

of stack 

bytes of 



If you want to avoid a repeat 
unti 1 after two times, change to; 
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Our solution is 
We store the results 
in one byte - making 
over 8 times as byte 



on the next page, 
of a coi n tosses 
the new solution 
efficient! 



MONTHLY 



>100 CALL INIT 

>110 FOR 1=9568 TD 9666 



>120 RANDOMIZE :: CALL PEEK(- 

31808, A, B) 
>130 CALL LOAD(I,A):: CALL LO 

AD(I+1,B) 
>140 NEXT I 
>150 FDR 1=9568 TO 9666 STEP 



>160 


CALL PEEK < I, A, B) 


>170 


FOR J=0 TO 7 


> 1 80 


X=< (2" J) AND A)/(2^J) 


>190 


Y=(<2--J)AND B)/(2^J) 


>200 


TL=TL+2 


>210 


H=H-( (X=1)+(Y=1) ) 


>220 


NEXT J 


>230 


NEXT I 


>240 


PRINT "TOTAL";TL 


■ 1 

>250 


PRINT "HEADS" ;H 


>260 


PRINT "TAILS";TL-H 



Our solution RUN's in about 47 
seconds and uses only 109 bytes o-f 
stack and 401 bytes o-f program space! 
This is a good example of why there 
are so many users who unneccessarily 
complain o-f not having enough memory! 

Many of you will probably need an 
explanation o-f what in the world wc 
did in our example, so here we go. 

Our first loop increments through 
the first 100 bytes available in low 
memory (we've allowed for loading of 
CorComp Controller routines) . Since 
there are 8 bits in a byte, 800 bits 
(with values of "1" or "O") can store 
our 800 results in 100 byt 



being accessed (in 
count the bits in 



we 



»<E*ii<^ »i_i_«i>»<i;i^ t^.i other words, n« 
count the bits in reverse sequence, 
with the Least Significant Bit being 
numbered as O and the Most Significant 
Bit being numbered as 7 and use the 
new reverse sequence as the exponent). 
By AND' ing with the reversed bit 
sequence, we determine whether the 
bit is on or off. By dividing by the 
bit weight, the value becomes either a 
"1" or a "O", Here is a chart to help 
in understanding this principle: 



Normal 


Reversed 


Bit 


Power 


sequence 


sequence 


Weight 




(Msb) 


7 


128 


7 


1 


6 


64 


6 


2 


5 


32 


5 


3 


4 


16 


4 


4 


3 


a 


3 


5 


2 


4 


2 


6 


1 


2 


1 


7 (Lsb) 





1 






We do this for each of the two numbers 
produced by the random number seed. 



Finally, at line 210 we use 
logical addition to track the count of 
heads. 



program to see 
produced. Me 
a nifty way of 
When you 



In the first loop, we access the 
random number seed in scratch pad RAM. 
This address is identified on page 406 
of the Editor/Assembler Manual. For 
a complete explanation of how this 
address works to produce random 
numbers, you should purchase Millers 
Graphics' excellent book, "Smart 
Programming Guide for Sprites" (see MG 
address on p. 10). We then LOAD our 
random numbers into low memory. 

In our second loop, we return to 
the addresses in low memory. Using a 
nested loop, we "peek" each bit. The 
weights of bits can be expressed as 
2 to the power of 7 minus the bit 
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If you still do not understand, 
the best thing to do is to insert 
PRINT statements in the 
what values are being 
should add that this is 
debugging a program, 
into advanced programming techniques, 
you'll occassional ly produce numbers 
without knowing how they were 
generated. Printing all of the values 
leading up to the final value may 
disclose the program bug. You can 
also often access variables after the 
program has run - from immediate mode! 
For instance, you can RUN our example 
program and then key: 

>PRINT I;A;B;J;X;Y;TL;H 



, what can we do with all this 
other than flip coins? Well, we can 
obviously sample a population randomly 
for one. Or, large numbers of "yes" 
on "no" ("1" or "O") flags could be 
stored. Or, any bit could be peeked 
or poked for whatever purpose. 
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Hardware Maintenance: 



The Navarone Cartridge Expander 

STANDARD: lA SA 9A 

The Navarone Cartridge Expander 
has been highly touted as a tool o-f 
convenience. No doubt, the ability to 
plug in 3 cartridges at once and 
change cartridges with the -flick o-f a 
switch and reset the title screen with 
the push o-f a button, as is possible 
with the Navarone unit, is extremely 
convenient. But, we find it even more 
important that the Expander reduces 
wear on the cartridge port and the 
cartridges - both in the -form of 
physical contact damage and heat 
damage (expansion and contraction) . 
The Expander offers the bonus th^ if 
one of the Expander's ports suffers 
damage, two more usable ports remain. 
When not using the Expander, damage to 
the cartridge port is a potential (and 
almost inevitable) problem. Cartridge 
port problems are very frustrating - 
one moment the cartridge is working, 
the next moment it ceases to work and 
all your work may be gone! Me highly 
recommend the Navarone Cartr i dge 
Expander for hardware maintenance - or 
should that be for convenience? 



Statistics 



STANDARD: lA 9A 



Here are a few elementary 
programs for common statistical needs: 



>100 

>110 
>120 
>130 
>140 
>150 
>160 
>160 



REM SIMPLE AVERAGE 

ENTER 9999 TO END 
INPUT "NUMBER": A 
IF A=9999 THEN 150 
TOTAL=TOTAL■^A 
COUNT=CDUNT-H 
GOTO 110 

A VER AGE=TQTAL /COUNT 

PRINT "AVERAGE"; AVERAGE 



>100 REM STANDARD DEVIATION 

ENTER 9999 TO END 
>110 INPUT "NUMBER": A 
>120 IF A«9999 THEN 170 

>130 TOTAL^TOTAL+A 
>140 SIGMA=SIGMA-*-A'^2 



>150 
>160 
>170 
>180 

N'^2 
>190 
>200 
>210 
>220 

E 
>230 



CDUNT«C0UNT+1 

GOTO 110 

ME AN=TOTAL / COUNT 

VAR I ANCE=S I 6MA/CDUNT-MEA 



DEV I AT I ON^SQR ( VAR I ANCE ) 
PRINT "TOTAL "; TOTAL 

"MEAN ";MEAN 
" VAR I ANCE " ; VAR I ANC 



PRINT 
PRINT 



PRINT "STANDARD DEVIATIO 



"ANNUAL PCT 



N"; DEVIATION 

>100 COMPOUND INTEREST 
>110 INPUT "PRINCIPAL 

NCIPAL 
>120 INPUT 

TE 
>130 

THS 
>140 
>150 
>160 



":PRI 



tl 



IRA 



INPUT "MONTHS 



" ; MON 



IRATE=IRATE/100 

FOR 1=1 TO MONTHS 

COMPOUND=(PRINCIPAL«IRAT 
E)/12 

>170 PRINCIPAL=PRINCIPAL-^COMP 

OUND 
>180 NEXT I 

>190 PRINT "COMPOUND AMOUNT = 



II 



PRINCIPAL 



MOO REM MARK-UP AS PERCENT 

OF RETAIL 
INPUT "COST ":COST 

INPUT "PCT MARKUP " : PCT 
PCT=PCT/100 

RETAIL=C0ST/(1-PCT) 
PRINT RETAIL 



>110 
>120 
>130 
>140 
>150 



MOO REM MARKUP AS PCT OF 

COST 

INPUT "COST ":CQST 
INPUT "PCT MARKUP " : PCT 
PCT=PCT/100 

RETAIL=COST+COST«PCT 
PRINT "RETAIL"5RETAIL 



>110 
>120 
>130 
>140 
>150 



>100 REM SUM 

ENTER 9999 TO END 
INPUT "NUMBER ":A 
IF A=9999 THEN 150 
TOTAL=TOTAL-^A 
GOTO 110 

PRINT "TOTAL"; TOTAL 

See - writing useful programs can 
be very easy! ! I 



MIO 
>120 
>130 
>140 

>150 
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News, Correct! onsp Upd«teSp EditorialSp KudoSp and Come-what-may 



CORRECTIONS TO OCTOBER: 
PAGE 9: Purists pre-fer tuner/contact 
cleaner over alcohol . Though many 
persons have i n-f ormed us that they 
use a pure form o-F alcohol without any 
problems, we do advise using the same 
product as the pro's use -for sa-fer 
results- 



NEW PRODUCT NEWS! 

Foundat i on has announced the 
availability o-F an improvement to > 
their 128K card, allowing for a 96K 
disk file emulator (a 64 byte record 
■file that is vaguely simi lar to Mini 
Memory RAM files).. We have not tested 
the card, but our opinion of the 
information available to us is that it 
is the best memory expansion card 
available. However, due to its high 
price, it is a must that you write 
Foundation Computing, 74 Claire Way, 
Tiburon, CA 94920, before buying! 
The card does not do what beginners 
think it will, so consider the 
documentation they send to you very 
carefully before buying. Foundation's 
80 column card is being revised and is 
not yet avai lable. 

Myarc, Inc. is now producing 
a disk controller card. It is DS/DD 
capable and is managed by a TI Disk 
Manager II (included) . Myarc is also 
offering an RS-232 card that features 
an extra serial port. Both cards 3ir& 
for the TI Peripheral Box and drawings 
we've seen indicate the cards may use 
TI cases (a nice plus - we'll try to 
confirm this). Myarc also produces 
f ul 1 expansion systems, as shown in 
the Triton catalog. If you are not 
familiar with Myarc, they have been 
producing very high quality Winchester 
hard disks for the TI for several 
years and have a good reputat i on . 
Don' t be surpri sed if you see more 
products from Myarc ! 



Many of you have asked us for 
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memory maps. We attempt to avoid 
duplicating the efforts of other 
publications. Therefore, for detailed 
(and we mean excel lent and very 
detai led) memory maps, you should 
subscribe to The Smart Programmer , 
It is available from Millers Graphics, 
1475 W. Cypress Ave., San Dimas, CA 
91773. The firm advises us that all 

back issues Sire currently available, 
as of October 16, 1984, so that you 
can specify at which issue you would 
like to begin. If you use other than 
console BASIC and are at all serious 
about programmi ng, the MG newsl etter 
is for you! 



We have had a number of requests 
for information about TMS 99000 
Family processors <TI-99/4A uses a 
TMS 9900 processor - not what we are 
discussing) • They use multiplexed 
16 bit address and data bus^ capable 
of addressing 1 megabyte. Capable of 
up to 24 Mhz, internally divided by 4. 
Minimum cycle time is 167 ns. The 
processors include multiprocessor 
i nter 1 Dck si gnal and mul ti processor 
support instructions- A "macrostore" 
(similar to XOP) capability uses 
high-speed memory and appears very 
impressive. CRU instructions are 
expanded from the TMB9900's 4K bits to 
32K bits (split as 16K serial and 16K 
p ar al lei ) . Double precision 32 bit 
instructions and signed multiply and 
divide are included. All TMS9900 
instructions are supported. And, 
there's lots more! All this can be 
summarized as nothing short of 
amazing (A whole new world for people 
into counting benchmarks! ) ! If a 
company can build a quality computer 
at a reasonable price based on this 
type chip, we'll buy one and we bet 
you wi 1 1 , too ! 



TI is still giving away to users 
groups. An Editor /Assembler Debugger 
(different from the original E/A 
debugger) is now available. It allows 
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disassembling, memory dump 
copy, single-step program 
and several other nice -feat 
two debuggers both have good 



to hard 
execution. 

The 
points. 



Me will not be publishing the 
article we promised last month on how 
to double FORTH, The in-formation has 
already been covered elsewhere. For a 
copy o-f the article, send «1.00 to 
99'ers Users Group Association, 3535 
So. H St. , #93, Bakersf ield, CA 
93304, Ask -for the April 1984 issue. 
The publication is issued about 10 
times per year and has contributions 
by some very highly regarded TI-99/4A 
programmers. The primary -focus of the 
publication is on product news and 
current events, though programming 
tips are a r egul ar f eature. The 
subscription rate is $10.00 per year- 



CQMING IN 
E-f-fects - 



DECEMBER: Music and Sound 
•for your December holiday 



such as Cor Camp, The -firm is OKpscted 
to release several new products soon 
and Chapter XI status may allow the 
■firm the opportunity to have revenues 
catch up with research and development 
costs. The firm's CorComp 9900 Disk 
Controller Card is widely regarded as 
one of the best products since the 
TI-99/4A itself. Our sources tell us 
that CorComp 's chances for full 
recovery are rather good. 



Computer products will be in 
ivy demand agai n this Chri stmas 

However, the products being 
purchased may be somewhat different 
from repent years. Expected to be 
popular this Holiday season are 
peripherals, as many households now 
have computers, but are looking to 
expand the capabilities of their 
equipment. If you have not 
your Christmas shopping, 
already be too late for some 
should shop early. Support 
third party vendors and 



done 
may 



yet 

you 

items and 

TI-99/4A 

give a 



computer gift this Holiday season? 



CorComp, Inc. has announced 
filing for financial protection under 
Chapter XI statutes. The firm plans 
to attempt to attract new investors, 
pay creditors, and continue to provide 
third party hardware and software. 

CorComp has been in business for 
about one year. Growth pains are not 
uncommon for rapidly growing companies 



Extended BASIC may soon be more 
readily available and/or at a reduced 
price. Full details are incomplete as 
of our deadline. 



Good luck to 
President of CDNNI 
Columbus, Ohio. 



Paul Powers, new 
Users Group in 



We hereby acknowledge any registrations, copyrights, or other legal rights held 
in association with the company names and/or products listed below: 

Texas Instruments, Inc.: TI, TI-99/4A, Tl-Writer, TI Extended BASIC, TI BASIC, 

TI Disk Manager II, Mini Memory, Command Module 
Star Micronlcs, Inc.: Gemini 15-X PC 
CorComp, Inc.: 9900 Disk Controller Card 
TEACi TEAC 55B Disk Drive 

Millers Graphics: The Smart Programmer, Smart Programming Guide for Sprites 

Microsoft Corporations Multiplan 

Navarone Industries: Cartridge Expander 

Emerald Valley Publishing Company: Home Computer Magazine 
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permission of Bytemaster Computer 
Services is prohibited. Bytemaster 
Computer Servies assumes no liability 
for errors in articles. 
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STANDARD KEY ! 


1 


Computer 




A 


TI-99/4A i 


2 


Cartridge 




A 

B 
C 
D 

E 


Extended BASIC 1 
Mini Memory ! 
Editor /Assembler 1 
Multiplan ! 
TI -Writer i 


3 


RS-232 




B 


TI I 


4 


Disk Drive 




A 
B 


TI 1 
TEAC S5B J 


5 


Expansion '. 


Box 


A 


TI i 


6 


Disk 




A 


TI 1 




Controller 




B 


CorComp 1 


7 


32K Card 




A 


TI 1 


8 


Cartridge 
Unit 




A 


Navarone Cart. 1 
Expander 1 


9 


Monitor or 


TV 


A 


TV 8c RF i 
Modulator 1 


10 


Printer 




A 


Gemini 15-X PC I 


Note: List 


1 

adjusted monthly. 1 

/ 
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Bytemaster Computer 
171 Mustang Street 
Sulphur, LA 70663 



vices 



/ . 



\ 





m 



\ 



SUPER 99 MONTHLY 



